home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Python1.4_Source / Amiga / testset / sock.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-06-24  |  979 b   |  54 lines
  1. /*****************************************************************************
  2.  
  3.     ARexx script showing how to use Python's socket host.
  4.  
  5. ******************************************************************************/
  6.  
  7. options results
  8.  
  9. address PY_SOCK
  10.  
  11. GETHOSTNAME
  12. hostname=RESULT
  13. say "Running on host" hostname
  14.  
  15. say "Getting daytime: "
  16. GETSERVBYNAME 'daytime'
  17. CONNECTSOCKET hostname RESULT
  18. sock=RESULT
  19. READSOCKET sock 100
  20. say RESULT
  21. CLOSESOCKET sock
  22.  
  23. say "Echo service:"
  24.  
  25. GETSERVBYNAME 'echo'
  26. CONNECTSOCKET hostname RESULT
  27. sock=RESULT
  28. WRITESOCKETCR sock 'foobar 1'
  29. READSOCKET sock 100
  30. say 'got back:' RESULT
  31. WRITESOCKETCR sock 'foobar 2'
  32. READSOCKET sock 100
  33. say 'got back:' RESULT
  34. CLOSESOCKET sock
  35.  
  36. say "Finger root@localhost:"
  37. GETSERVBYNAME 'finger'
  38. CONNECTSOCKET hostname RESULT
  39. sock=RESULT
  40. WRITESOCKETCR sock 'root'
  41. cont=0
  42. do while cont=0
  43.     READSOCKET sock 1000
  44.     cont=rc
  45.     if cont=0 then do
  46.         address; WRITECH(STDOUT,RESULT); address
  47.     end
  48. end
  49.  
  50. CLOSESOCKET sock
  51.  
  52. say "Complete."
  53.  
  54.